﻿
Partial Class WebForm_SearchWorkRecord
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.BindGV()
        End If
    End Sub
End Class

Partial Class WebForm_SearchWorkRecord

    Public Sub BindGV()
        Dim dt As New Data.DataTable

        dt.Columns.Add("WorkSubject")
        dt.Columns.Add("WorkItem")
        dt.Columns.Add("WorkHour")
        dt.Columns.Add("WorkTimes")

        Dim dr As Data.DataRow

        dr = dt.NewRow
        dr("WorkSubject") = "主題1"
        dr("WorkItem") = "居家"
        dr("WorkHour") = "12"
        dr("WorkTimes") = "8"
        dt.Rows.Add(dr)

        Me.gv.DataSource = dt
        Me.gv.DataBind()
    End Sub
End Class
